home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / smalltlk.zip / PRELUDE / FILE.P < prev    next >
Text File  |  1990-09-13  |  582b  |  17 lines
  1. temp <- <primitive 110 1 >
  2. <primitive 112 temp 1        " main " \
  3.     #( #[ 5 42 160 241 48 129 1 242 113 5 42 160 241 50 51 \
  4.  130 4 242 114 33 225 3 7 34 35 128 5 11 49 243 \
  5.  179 242 5 42 160 241 50 54 130 4 242 114 34 225 3 \
  6.  3 35 168 243 179 242 33 128 7 242 33 166 168 242 56 \
  7.  224 4 33 167 168 243 183 242 33 82 177 168 242 33 171 \
  8.  168 242 33 163 168 242 245] \
  9.     #( 'file.st' #open: 'foo' 'w' #open:for: #reversed 'r' #modeCharacter 10  ) ) >
  10.  
  11. <primitive 98 #Main \
  12.     <primitive 97 #Main #Object #\smalltlk\prelude\file.st \
  13.     #(  ) \
  14.     #( #main  ) \
  15.     temp 4 9 > >
  16.  
  17.